home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / ActiveX Controlls / NCTAudioEditor2 ActiveX DLL / NCTAudioEditor2.exe / {app} / Samples / TestVBAudioEditor2 / frmDialog.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2003-04-08  |  67.5 KB  |  1,751 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  4. Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
  5. Object = "{35591CB0-4180-43DE-ACA1-00C9EBA25C61}#2.0#0"; "NCTAudioEditor2.dll"
  6. Begin VB.Form frmDialog 
  7.    BorderStyle     =   1  'Fixed Single
  8.    Caption         =   "TestVB NCTAudioEditor ActiveX DLL"
  9.    ClientHeight    =   7200
  10.    ClientLeft      =   45
  11.    ClientTop       =   615
  12.    ClientWidth     =   13950
  13.    Icon            =   "frmDialog.frx":0000
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   7200
  18.    ScaleWidth      =   13950
  19.    StartUpPosition =   2  'CenterScreen
  20.    Begin NCTAUDIOEDITOR2LibCtl.AudioEditor2 AudioEditor1 
  21.       Height          =   5535
  22.       Left            =   120
  23.       OleObjectBlob   =   "frmDialog.frx":0442
  24.       TabIndex        =   36
  25.       Top             =   960
  26.       Width           =   11055
  27.    End
  28.    Begin VB.Frame frmSelect 
  29.       Caption         =   "Select"
  30.       Height          =   780
  31.       Left            =   11325
  32.       TabIndex        =   24
  33.       Top             =   5730
  34.       Width           =   2520
  35.       Begin VB.CheckBox chSelect 
  36.          Caption         =   "Select"
  37.          Height          =   375
  38.          Left            =   1650
  39.          TabIndex        =   29
  40.          Top             =   270
  41.          Width           =   765
  42.       End
  43.       Begin VB.TextBox txtSelEnd 
  44.          Height          =   330
  45.          Left            =   855
  46.          TabIndex        =   26
  47.          Top             =   315
  48.          Width           =   390
  49.       End
  50.       Begin VB.TextBox txtSelStart 
  51.          Height          =   330
  52.          Left            =   120
  53.          TabIndex        =   25
  54.          Top             =   315
  55.          Width           =   390
  56.       End
  57.       Begin MSComCtl2.UpDown udSelEnd 
  58.          Height          =   330
  59.          Left            =   1260
  60.          TabIndex        =   27
  61.          Top             =   315
  62.          Width           =   240
  63.          _ExtentX        =   423
  64.          _ExtentY        =   582
  65.          _Version        =   393216
  66.          Value           =   100
  67.          BuddyControl    =   "txtSelEnd"
  68.          BuddyDispid     =   196611
  69.          OrigLeft        =   12915
  70.          OrigTop         =   6885
  71.          OrigRight       =   13155
  72.          OrigBottom      =   7170
  73.          Max             =   100
  74.          SyncBuddy       =   -1  'True
  75.          Wrap            =   -1  'True
  76.          BuddyProperty   =   65547
  77.          Enabled         =   -1  'True
  78.       End
  79.       Begin MSComCtl2.UpDown udSelStart 
  80.          Height          =   330
  81.          Left            =   540
  82.          TabIndex        =   28
  83.          Top             =   315
  84.          Width           =   240
  85.          _ExtentX        =   423
  86.          _ExtentY        =   582
  87.          _Version        =   393216
  88.          BuddyControl    =   "txtSelStart"
  89.          BuddyDispid     =   196612
  90.          OrigLeft        =   12780
  91.          OrigTop         =   6390
  92.          OrigRight       =   13020
  93.          OrigBottom      =   6720
  94.          Max             =   100
  95.          SyncBuddy       =   -1  'True
  96.          Wrap            =   -1  'True
  97.          BuddyProperty   =   65547
  98.          Enabled         =   -1  'True
  99.       End
  100.    End
  101.    Begin MSComctlLib.StatusBar StatusBar1 
  102.       Align           =   2  'Align Bottom
  103.       Height          =   285
  104.       Left            =   0
  105.       TabIndex        =   23
  106.       Top             =   6915
  107.       Width           =   13950
  108.       _ExtentX        =   24606
  109.       _ExtentY        =   503
  110.       _Version        =   393216
  111.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  112.          NumPanels       =   7
  113.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  114.             AutoSize        =   1
  115.             Object.Width           =   7382
  116.          EndProperty
  117.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  118.             AutoSize        =   1
  119.             Object.Width           =   7382
  120.          EndProperty
  121.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  122.             AutoSize        =   2
  123.          EndProperty
  124.          BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  125.             Object.Width           =   1764
  126.             MinWidth        =   1764
  127.          EndProperty
  128.          BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  129.             Object.Width           =   1764
  130.             MinWidth        =   1764
  131.          EndProperty
  132.          BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  133.             Object.Width           =   1764
  134.             MinWidth        =   1764
  135.          EndProperty
  136.          BeginProperty Panel7 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  137.             Object.Width           =   1764
  138.             MinWidth        =   1764
  139.          EndProperty
  140.       EndProperty
  141.    End
  142.    Begin MSComctlLib.Toolbar Toolbar2 
  143.       Align           =   1  'Align Top
  144.       Height          =   420
  145.       Left            =   0
  146.       TabIndex        =   22
  147.       Top             =   420
  148.       Width           =   13950
  149.       _ExtentX        =   24606
  150.       _ExtentY        =   741
  151.       ButtonWidth     =   609
  152.       ButtonHeight    =   582
  153.       Appearance      =   1
  154.       ImageList       =   "imlToolbarIcons"
  155.       _Version        =   393216
  156.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  157.          NumButtons      =   22
  158.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  159.             Key             =   "Invert"
  160.             Object.ToolTipText     =   "Invert"
  161.             ImageKey        =   "Invert3"
  162.          EndProperty
  163.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  164.             Key             =   "Silence"
  165.             Object.ToolTipText     =   "Silence"
  166.             ImageKey        =   "Silence"
  167.          EndProperty
  168.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  169.             Key             =   "Amplify+"
  170.             Object.ToolTipText     =   "Amplify+"
  171.             ImageKey        =   "Amplify+1"
  172.          EndProperty
  173.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  174.             Key             =   "Amplify-"
  175.             Object.ToolTipText     =   "Amplify-"
  176.             ImageKey        =   "Amplify-"
  177.          EndProperty
  178.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  179.             Key             =   "FadeIn"
  180.             Object.ToolTipText     =   "FadeIn"
  181.             ImageKey        =   "FadeIn161"
  182.          EndProperty
  183.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  184.             Key             =   "FadeOut"
  185.             Object.ToolTipText     =   "FadeOut"
  186.             ImageKey        =   "FadeOut16"
  187.          EndProperty
  188.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  189.             Key             =   "Normalize"
  190.             Object.ToolTipText     =   "Normalize"
  191.             ImageKey        =   "Normalize"
  192.          EndProperty
  193.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  194.             Style           =   3
  195.          EndProperty
  196.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  197.             Key             =   "Flanger"
  198.             Object.ToolTipText     =   "Flanger"
  199.             ImageKey        =   "Flanger1"
  200.          EndProperty
  201.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  202.             Key             =   "Vibrato"
  203.             Object.ToolTipText     =   "Vibrato"
  204.             ImageKey        =   "Vibrato1"
  205.          EndProperty
  206.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  207.             Key             =   "Delay"
  208.             Object.ToolTipText     =   "Delay"
  209.             ImageKey        =   "Echo16"
  210.          EndProperty
  211.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  212.             Style           =   3
  213.          EndProperty
  214.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  215.             Key             =   "NotchFilter"
  216.             Object.ToolTipText     =   "Notch Filter"
  217.             ImageKey        =   "NotchFilter2"
  218.          EndProperty
  219.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  220.             Key             =   "BPF"
  221.             Object.ToolTipText     =   "Band Pass Filter"
  222.             ImageKey        =   "BPF"
  223.          EndProperty
  224.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  225.             Key             =   "HPF"
  226.             Object.ToolTipText     =   "High Pass Filter"
  227.             ImageKey        =   "HPF"
  228.          EndProperty
  229.          BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  230.             Key             =   "LPF"
  231.             Object.ToolTipText     =   "Low Pass Filter"
  232.             ImageKey        =   "LPF1"
  233.          EndProperty
  234.          BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  235.             Key             =   "HSF"
  236.             Object.ToolTipText     =   "High Shelf Filter"
  237.             ImageKey        =   "HSF"
  238.          EndProperty
  239.          BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  240.             Key             =   "LSF"
  241.             Object.ToolTipText     =   "Low Shelf Filter"
  242.             ImageKey        =   "LSF1"
  243.          EndProperty
  244.          BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  245.             Key             =   "FFT"
  246.             Object.ToolTipText     =   "FFT Filter"
  247.             ImageKey        =   "FFT16"
  248.          EndProperty
  249.          BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  250.             Style           =   3
  251.          EndProperty
  252.          BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  253.             Key             =   "InsSilence"
  254.             Object.ToolTipText     =   "Insert Silence"
  255.             ImageKey        =   "InsSilence2"
  256.          EndProperty
  257.          BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  258.             Style           =   3
  259.          EndProperty
  260.       EndProperty
  261.    End
  262.    Begin VB.Frame frmZoom 
  263.       Caption         =   "Zoom"
  264.       Height          =   960
  265.       Left            =   11325
  266.       TabIndex        =   19
  267.       Top             =   4770
  268.       Width           =   2520
  269.       Begin VB.TextBox txtZHend 
  270.          Height          =   330
  271.          Left            =   735
  272.          TabIndex        =   31
  273.          Top             =   480
  274.          Width           =   390
  275.       End
  276.       Begin VB.TextBox txtZHstart 
  277.          Height          =   330
  278.          Left            =   90
  279.          TabIndex        =   30
  280.          Top             =   480
  281.          Width           =   390
  282.       End
  283.       Begin MSComCtl2.UpDown udZV 
  284.          Height          =   330
  285.          Left            =   2130
  286.          TabIndex        =   21
  287.          Top             =   480
  288.          Width           =   240
  289.          _ExtentX        =   423
  290.          _ExtentY        =   582
  291.          _Version        =   393216
  292.          Value           =   100
  293.          BuddyControl    =   "txtZV"
  294.          BuddyDispid     =   196616
  295.          OrigLeft        =   1845
  296.          OrigTop         =   270
  297.          OrigRight       =   2085
  298.          OrigBottom      =   645
  299.          Increment       =   5
  300.          Max             =   500
  301.          Min             =   1
  302.          SyncBuddy       =   -1  'True
  303.          Wrap            =   -1  'True
  304.          BuddyProperty   =   65547
  305.          Enabled         =   -1  'True
  306.       End
  307.       Begin VB.TextBox txtZV 
  308.          Height          =   330
  309.          Left            =   1710
  310.          TabIndex        =   20
  311.          Top             =   480
  312.          Width           =   390
  313.       End
  314.       Begin MSComCtl2.UpDown udZHend 
  315.          Height          =   330
  316.          Left            =   1140
  317.          TabIndex        =   32
  318.          Top             =   480
  319.          Width           =   240
  320.          _ExtentX        =   423
  321.          _ExtentY        =   582
  322.          _Version        =   393216
  323.          Value           =   100
  324.          BuddyControl    =   "txtZHend"
  325.          BuddyDispid     =   196614
  326.          OrigLeft        =   12915
  327.          OrigTop         =   6885
  328.          OrigRight       =   13155
  329.          OrigBottom      =   7170
  330.          Max             =   100
  331.          SyncBuddy       =   -1  'True
  332.          Wrap            =   -1  'True
  333.          BuddyProperty   =   65547
  334.          Enabled         =   -1  'True
  335.       End
  336.       Begin MSComCtl2.UpDown udZHstart 
  337.          Height          =   330
  338.          Left            =   480
  339.          TabIndex        =   33
  340.          Top             =   480
  341.          Width           =   240
  342.          _ExtentX        =   423
  343.          _ExtentY        =   582
  344.          _Version        =   393216
  345.          BuddyControl    =   "txtZHstart"
  346.          BuddyDispid     =   196615
  347.          OrigLeft        =   12780
  348.          OrigTop         =   6390
  349.          OrigRight       =   13020
  350.          OrigBottom      =   6720
  351.          Max             =   100
  352.          SyncBuddy       =   -1  'True
  353.          Wrap            =   -1  'True
  354.          BuddyProperty   =   65547
  355.          Enabled         =   -1  'True
  356.       End
  357.       Begin VB.Label lblVertical 
  358.          Caption         =   "Vertical:"
  359.          Height          =   195
  360.          Left            =   1710
  361.          TabIndex        =   35
  362.          Top             =   210
  363.          Width           =   765
  364.       End
  365.       Begin VB.Label lblHorizontal 
  366.          Caption         =   "Horizontal:"
  367.          Height          =   195
  368.          Left            =   90
  369.          TabIndex        =   34
  370.          Top             =   210
  371.          Width           =   855
  372.       End
  373.    End
  374.    Begin MSComctlLib.ProgressBar Progress 
  375.       Height          =   90
  376.       Index           =   0
  377.       Left            =   120
  378.       TabIndex        =   17
  379.       Top             =   6720
  380.       Width           =   11100
  381.       _ExtentX        =   19579
  382.       _ExtentY        =   159
  383.       _Version        =   393216
  384.       Appearance      =   0
  385.    End
  386.    Begin VB.Frame frmInput 
  387.       Caption         =   "Record"
  388.       Height          =   3945
  389.       Left            =   12585
  390.       TabIndex        =   7
  391.       Top             =   810
  392.       Width           =   1260
  393.       Begin VB.ComboBox cmbDevInput 
  394.          Height          =   315
  395.          Left            =   60
  396.          Style           =   2  'Dropdown List
  397.          TabIndex        =   14
  398.          Top             =   210
  399.          Width           =   1125
  400.       End
  401.       Begin VB.Frame frmVolumeInput 
  402.          Caption         =   "Volume"
  403.          Height          =   3285
  404.          Left            =   60
  405.          TabIndex        =   8
  406.          Top             =   570
  407.          Width           =   1125
  408.          Begin MSComctlLib.Slider sldrVolBalanceInp 
  409.             Height          =   300
  410.             Left            =   150
  411.             TabIndex        =   12
  412.             Top             =   570
  413.             Width           =   825
  414.             _ExtentX        =   1455
  415.             _ExtentY        =   529
  416.             _Version        =   393216
  417.             SmallChange     =   5
  418.             Max             =   100
  419.             SelStart        =   50
  420.             TickFrequency   =   50
  421.             Value           =   50
  422.             TextPosition    =   1
  423.          End
  424.          Begin VB.ComboBox cmbSrcInput 
  425.             Height          =   315
  426.             Left            =   90
  427.             Style           =   2  'Dropdown List
  428.             TabIndex        =   13
  429.             Top             =   210
  430.             Width           =   975
  431.          End
  432.          Begin VB.CheckBox chSelectInput 
  433.             Alignment       =   1  'Right Justify
  434.             Caption         =   "Select:"
  435.             Height          =   240
  436.             Left            =   120
  437.             TabIndex        =   10
  438.             Top             =   2580
  439.             Width           =   870
  440.          End
  441.          Begin VB.CommandButton cmdAdvancedInput 
  442.             Caption         =   "Advanced"
  443.             Height          =   330
  444.             Left            =   90
  445.             TabIndex        =   9
  446.             Top             =   2850
  447.             Visible         =   0   'False
  448.             Width           =   990
  449.          End
  450.          Begin MSComctlLib.Slider sldrVolumeInp 
  451.             Height          =   1785
  452.             Left            =   270
  453.             TabIndex        =   11
  454.             Top             =   840
  455.             Width           =   630
  456.             _ExtentX        =   1111
  457.             _ExtentY        =   3149
  458.             _Version        =   393216
  459.             Orientation     =   1
  460.             SmallChange     =   5
  461.             Max             =   65535
  462.             SelStart        =   65535
  463.             TickStyle       =   2
  464.             TickFrequency   =   6000
  465.             Value           =   65535
  466.          End
  467.       End
  468.    End
  469.    Begin VB.Frame frmOutput 
  470.       Caption         =   "Play"
  471.       Height          =   3945
  472.       Left            =   11310
  473.       TabIndex        =   1
  474.       Top             =   810
  475.       Width           =   1260
  476.       Begin VB.ComboBox cmbDevOutput 
  477.          Height          =   315
  478.          Left            =   60
  479.          Style           =   2  'Dropdown List
  480.          TabIndex        =   16
  481.          Top             =   210
  482.          Width           =   1125
  483.       End
  484.       Begin VB.Frame frmVolumeOutput 
  485.          Caption         =   "Volume"
  486.          Height          =   3270
  487.          Left            =   60
  488.          TabIndex        =   2
  489.          Top             =   570
  490.          Width           =   1125
  491.          Begin MSComctlLib.Slider sldrVolBalanceOut 
  492.             Height          =   300
  493.             Left            =   150
  494.             TabIndex        =   6
  495.             Top             =   570
  496.             Width           =   825
  497.             _ExtentX        =   1455
  498.             _ExtentY        =   529
  499.             _Version        =   393216
  500.             SmallChange     =   5
  501.             Max             =   100
  502.             SelStart        =   50
  503.             TickFrequency   =   50
  504.             Value           =   50
  505.             TextPosition    =   1
  506.          End
  507.          Begin VB.ComboBox cmbSrcOutput 
  508.             Height          =   315
  509.             Left            =   90
  510.             Style           =   2  'Dropdown List
  511.             TabIndex        =   15
  512.             Top             =   210
  513.             Width           =   975
  514.          End
  515.          Begin VB.CheckBox chSelectOutput 
  516.             Alignment       =   1  'Right Justify
  517.             Caption         =   "Select :"
  518.             Height          =   240
  519.             Left            =   120
  520.             TabIndex        =   4
  521.             Top             =   2580
  522.             Width           =   870
  523.          End
  524.          Begin VB.CommandButton cmdAdvancedOutput 
  525.             Caption         =   "Advanced"
  526.             Height          =   330
  527.             Left            =   90
  528.             TabIndex        =   3
  529.             Top             =   2850
  530.             Visible         =   0   'False
  531.             Width           =   990
  532.          End
  533.          Begin MSComctlLib.Slider sldrVolumeOut 
  534.             Height          =   1785
  535.             Left            =   270
  536.             TabIndex        =   5
  537.             Top             =   840
  538.             Width           =   630
  539.             _ExtentX        =   1111
  540.             _ExtentY        =   3149
  541.             _Version        =   393216
  542.             Orientation     =   1
  543.             SmallChange     =   5
  544.             Max             =   65535
  545.             SelStart        =   65535
  546.             TickStyle       =   2
  547.             TickFrequency   =   6000
  548.             Value           =   65535
  549.          End
  550.       End
  551.    End
  552.    Begin MSComDlg.CommonDialog CommonDialog1 
  553.       Left            =   4950
  554.       Top             =   720
  555.       _ExtentX        =   847
  556.       _ExtentY        =   847
  557.       _Version        =   393216
  558.    End
  559.    Begin MSComctlLib.ImageList imlToolbarIcons 
  560.       Left            =   9240
  561.       Top             =   600
  562.       _ExtentX        =   1005
  563.       _ExtentY        =   1005
  564.       BackColor       =   -2147483643
  565.       ImageWidth      =   16
  566.       ImageHeight     =   16
  567.       MaskColor       =   12632256
  568.       _Version        =   393216
  569.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  570.          NumListImages   =   81
  571.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  572.             Picture         =   "frmDialog.frx":0466
  573.             Key             =   "New"
  574.          EndProperty
  575.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  576.             Picture         =   "frmDialog.frx":0578
  577.             Key             =   "Open"
  578.          EndProperty
  579.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  580.             Picture         =   "frmDialog.frx":068A
  581.             Key             =   "Save"
  582.          EndProperty
  583.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  584.             Picture         =   "frmDialog.frx":079C
  585.             Key             =   "Delete"
  586.          EndProperty
  587.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  588.             Picture         =   "frmDialog.frx":08AE
  589.             Key             =   "Copy"
  590.          EndProperty
  591.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  592.             Picture         =   "frmDialog.frx":09C0
  593.             Key             =   "Cut"
  594.          EndProperty
  595.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  596.             Picture         =   "frmDialog.frx":0AD2
  597.             Key             =   "Paste"
  598.          EndProperty
  599.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  600.             Picture         =   "frmDialog.frx":0BE4
  601.             Key             =   "Undo"
  602.          EndProperty
  603.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  604.             Picture         =   "frmDialog.frx":0CF6
  605.             Key             =   "Redo"
  606.          EndProperty
  607.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  608.             Picture         =   "frmDialog.frx":0E08
  609.             Key             =   "Zoomin"
  610.          EndProperty
  611.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  612.             Picture         =   "frmDialog.frx":1122
  613.             Key             =   "Zoomout"
  614.          EndProperty
  615.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  616.             Picture         =   "frmDialog.frx":143C
  617.             Key             =   "Forward"
  618.          EndProperty
  619.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  620.             Picture         =   "frmDialog.frx":154E
  621.             Key             =   "Stop"
  622.          EndProperty
  623.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  624.             Picture         =   "frmDialog.frx":1868
  625.             Key             =   "arrow_down"
  626.          EndProperty
  627.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  628.             Picture         =   "frmDialog.frx":1B82
  629.             Key             =   "Icon11"
  630.          EndProperty
  631.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  632.             Picture         =   "frmDialog.frx":1D5C
  633.             Key             =   "Ico00001"
  634.          EndProperty
  635.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  636.             Picture         =   "frmDialog.frx":1F36
  637.             Key             =   "Tools3d1A"
  638.          EndProperty
  639.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  640.             Picture         =   "frmDialog.frx":2148
  641.             Key             =   "Key5_2_1"
  642.          EndProperty
  643.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  644.             Picture         =   "frmDialog.frx":22BE
  645.             Key             =   "Key5_1_1"
  646.          EndProperty
  647.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  648.             Picture         =   "frmDialog.frx":2434
  649.             Key             =   "Key5_3_1"
  650.          EndProperty
  651.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  652.             Picture         =   "frmDialog.frx":25AA
  653.             Key             =   "ZoomFull1"
  654.          EndProperty
  655.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  656.             Picture         =   "frmDialog.frx":28BC
  657.             Key             =   "Properties"
  658.          EndProperty
  659.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  660.             Picture         =   "frmDialog.frx":29CE
  661.             Key             =   "CEnable3"
  662.          EndProperty
  663.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  664.             Picture         =   "frmDialog.frx":2AE0
  665.             Key             =   "FadeIn"
  666.          EndProperty
  667.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  668.             Picture         =   "frmDialog.frx":3732
  669.             Key             =   "FadeOut"
  670.          EndProperty
  671.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  672.             Picture         =   "frmDialog.frx":4384
  673.             Key             =   "icon11"
  674.          EndProperty
  675.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  676.             Picture         =   "frmDialog.frx":455E
  677.             Key             =   "icon1"
  678.          EndProperty
  679.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  680.             Picture         =   "frmDialog.frx":4738
  681.             Key             =   "icon2"
  682.          EndProperty
  683.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  684.             Picture         =   "frmDialog.frx":4912
  685.             Key             =   "voice"
  686.          EndProperty
  687.          BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  688.             Picture         =   "frmDialog.frx":4AEC
  689.             Key             =   "icon12"
  690.          EndProperty
  691.          BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  692.             Picture         =   "frmDialog.frx":4CC6
  693.             Key             =   "icon21"
  694.          EndProperty
  695.          BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  696.             Picture         =   "frmDialog.frx":4EA0
  697.             Key             =   "voice1"
  698.          EndProperty
  699.          BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  700.             Picture         =   "frmDialog.frx":507A
  701.             Key             =   "Invert"
  702.          EndProperty
  703.          BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  704.             Picture         =   "frmDialog.frx":518C
  705.             Key             =   "Invert1"
  706.          EndProperty
  707.          BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  708.             Picture         =   "frmDialog.frx":529E
  709.             Key             =   "FadeIn16"
  710.          EndProperty
  711.          BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  712.             Picture         =   "frmDialog.frx":53B0
  713.             Key             =   "FadeOut161"
  714.          EndProperty
  715.          BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  716.             Picture         =   "frmDialog.frx":54C2
  717.             Key             =   "Left"
  718.          EndProperty
  719.          BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  720.             Picture         =   "frmDialog.frx":55D4
  721.             Key             =   "Right"
  722.          EndProperty
  723.          BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  724.             Picture         =   "frmDialog.frx":56E6
  725.             Key             =   "CEnable21"
  726.          EndProperty
  727.          BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  728.             Picture         =   "frmDialog.frx":57F8
  729.             Key             =   "FFT161"
  730.          EndProperty
  731.          BeginProperty ListImage41 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  732.             Picture         =   "frmDialog.frx":590A
  733.             Key             =   "Amplify+"
  734.          EndProperty
  735.          BeginProperty ListImage42 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  736.             Picture         =   "frmDialog.frx":5A1C
  737.             Key             =   "InsSilence"
  738.          EndProperty
  739.          BeginProperty ListImage43 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  740.             Picture         =   "frmDialog.frx":5B2E
  741.             Key             =   "InsNoise1"
  742.          EndProperty
  743.          BeginProperty ListImage44 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  744.             Picture         =   "frmDialog.frx":5C40
  745.             Key             =   "Flanger"
  746.          EndProperty
  747.          BeginProperty ListImage45 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  748.             Picture         =   "frmDialog.frx":5D52
  749.             Key             =   "NotchFilter"
  750.          EndProperty
  751.          BeginProperty ListImage46 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  752.             Picture         =   "frmDialog.frx":5E64
  753.             Key             =   "NotchFilter1"
  754.          EndProperty
  755.          BeginProperty ListImage47 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  756.             Picture         =   "frmDialog.frx":5F76
  757.             Key             =   "PlayToEnd"
  758.          EndProperty
  759.          BeginProperty ListImage48 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  760.             Picture         =   "frmDialog.frx":6088
  761.             Key             =   "PlayLooped"
  762.          EndProperty
  763.          BeginProperty ListImage49 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  764.             Picture         =   "frmDialog.frx":619A
  765.             Key             =   "Invert3"
  766.          EndProperty
  767.          BeginProperty ListImage50 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  768.             Picture         =   "frmDialog.frx":62AC
  769.             Key             =   "Silence"
  770.          EndProperty
  771.          BeginProperty ListImage51 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  772.             Picture         =   "frmDialog.frx":63BE
  773.             Key             =   "Amplify+1"
  774.          EndProperty
  775.          BeginProperty ListImage52 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  776.             Picture         =   "frmDialog.frx":64D0
  777.             Key             =   "Amplify-"
  778.          EndProperty
  779.          BeginProperty ListImage53 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  780.             Picture         =   "frmDialog.frx":65E2
  781.             Key             =   "FadeIn161"
  782.          EndProperty
  783.          BeginProperty ListImage54 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  784.             Picture         =   "frmDialog.frx":66F4
  785.             Key             =   "Normalize"
  786.          EndProperty
  787.          BeginProperty ListImage55 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  788.             Picture         =   "frmDialog.frx":6806
  789.             Key             =   "Flanger1"
  790.          EndProperty
  791.          BeginProperty ListImage56 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  792.             Picture         =   "frmDialog.frx":6918
  793.             Key             =   "FFT16"
  794.          EndProperty
  795.          BeginProperty ListImage57 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  796.             Picture         =   "frmDialog.frx":6A2A
  797.             Key             =   "NotchFilter2"
  798.          EndProperty
  799.          BeginProperty ListImage58 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  800.             Picture         =   "frmDialog.frx":6B3C
  801.             Key             =   "FadeOut16"
  802.          EndProperty
  803.          BeginProperty ListImage59 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  804.             Picture         =   "frmDialog.frx":6C4E
  805.             Key             =   "InsNoise"
  806.          EndProperty
  807.          BeginProperty ListImage60 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  808.             Picture         =   "frmDialog.frx":6D60
  809.             Key             =   "InsSilence1"
  810.          EndProperty
  811.          BeginProperty ListImage61 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  812.             Picture         =   "frmDialog.frx":6E72
  813.             Key             =   "InsSilence2"
  814.          EndProperty
  815.          BeginProperty ListImage62 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  816.             Picture         =   "frmDialog.frx":6F84
  817.             Key             =   "InsSin"
  818.          EndProperty
  819.          BeginProperty ListImage63 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  820.             Picture         =   "frmDialog.frx":7096
  821.             Key             =   "HPF"
  822.          EndProperty
  823.          BeginProperty ListImage64 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  824.             Picture         =   "frmDialog.frx":71A8
  825.             Key             =   "HSF"
  826.          EndProperty
  827.          BeginProperty ListImage65 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  828.             Picture         =   "frmDialog.frx":72BA
  829.             Key             =   "LPF"
  830.          EndProperty
  831.          BeginProperty ListImage66 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  832.             Picture         =   "frmDialog.frx":73CC
  833.             Key             =   "LSF"
  834.          EndProperty
  835.          BeginProperty ListImage67 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  836.             Picture         =   "frmDialog.frx":74DE
  837.             Key             =   "LPF1"
  838.          EndProperty
  839.          BeginProperty ListImage68 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  840.             Picture         =   "frmDialog.frx":75F0
  841.             Key             =   "LSF1"
  842.          EndProperty
  843.          BeginProperty ListImage69 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  844.             Picture         =   "frmDialog.frx":7702
  845.             Key             =   "OpenCD"
  846.          EndProperty
  847.          BeginProperty ListImage70 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  848.             Picture         =   "frmDialog.frx":7814
  849.             Key             =   "Vibrato"
  850.          EndProperty
  851.          BeginProperty ListImage71 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  852.             Picture         =   "frmDialog.frx":7926
  853.             Key             =   "Vibrato1"
  854.          EndProperty
  855.          BeginProperty ListImage72 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  856.             Picture         =   "frmDialog.frx":7A38
  857.             Key             =   "OpenCD1"
  858.          EndProperty
  859.          BeginProperty ListImage73 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  860.             Picture         =   "frmDialog.frx":7B4A
  861.             Key             =   "BPF"
  862.          EndProperty
  863.          BeginProperty ListImage74 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  864.             Picture         =   "frmDialog.frx":7C5C
  865.             Key             =   "Echo16"
  866.          EndProperty
  867.          BeginProperty ListImage75 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  868.             Picture         =   "frmDialog.frx":7D6E
  869.             Key             =   "Mix16"
  870.          EndProperty
  871.          BeginProperty ListImage76 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  872.             Picture         =   "frmDialog.frx":7E80
  873.             Key             =   "Pause"
  874.          EndProperty
  875.          BeginProperty ListImage77 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  876.             Picture         =   "frmDialog.frx":7F92
  877.             Key             =   "Pause1"
  878.          EndProperty
  879.          BeginProperty ListImage78 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  880.             Picture         =   "frmDialog.frx":80A4
  881.             Key             =   "Continue1"
  882.          EndProperty
  883.          BeginProperty ListImage79 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  884.             Picture         =   "frmDialog.frx":81B6
  885.             Key             =   "AGC"
  886.          EndProperty
  887.          BeginProperty ListImage80 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  888.             Picture         =   "frmDialog.frx":8390
  889.             Key             =   "AGC1"
  890.          EndProperty
  891.          BeginProperty ListImage81 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  892.             Picture         =   "frmDialog.frx":84A2
  893.             Key             =   "AGC2"
  894.          EndProperty
  895.       EndProperty
  896.    End
  897.    Begin MSComctlLib.ProgressBar Progress 
  898.       Height          =   90
  899.       Index           =   1
  900.       Left            =   120
  901.       TabIndex        =   18
  902.       Top             =   6600
  903.       Width           =   11100
  904.       _ExtentX        =   19579
  905.       _ExtentY        =   159
  906.       _Version        =   393216
  907.       Appearance      =   0
  908.    End
  909.    Begin MSComctlLib.Toolbar Toolbar1 
  910.       Align           =   1  'Align Top
  911.       Height          =   420
  912.       Left            =   0
  913.       TabIndex        =   0
  914.       Top             =   0
  915.       Width           =   13950
  916.       _ExtentX        =   24606
  917.       _ExtentY        =   741
  918.       ButtonWidth     =   609
  919.       ButtonHeight    =   582
  920.       Appearance      =   1
  921.       ImageList       =   "imlToolbarIcons"
  922.       _Version        =   393216
  923.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  924.          NumButtons      =   31
  925.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  926.             Key             =   "New"
  927.             Object.ToolTipText     =   "New"
  928.             ImageKey        =   "New"
  929.          EndProperty
  930.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  931.             Key             =   "Open"
  932.             Object.ToolTipText     =   "Open"
  933.             ImageKey        =   "Open"
  934.          EndProperty
  935.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  936.             Key             =   "Save"
  937.             Object.ToolTipText     =   "Save"
  938.             ImageKey        =   "Save"
  939.          EndProperty
  940.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  941.             Key             =   "Close"
  942.             Object.ToolTipText     =   "Close"
  943.             ImageKey        =   "Delete"
  944.          EndProperty
  945.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  946.             Style           =   3
  947.          EndProperty
  948.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  949.             Key             =   "Properties"
  950.             Object.ToolTipText     =   "Properties"
  951.             ImageKey        =   "Properties"
  952.          EndProperty
  953.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  954.             Style           =   3
  955.          EndProperty
  956.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  957.             Key             =   "Copy"
  958.             Object.ToolTipText     =   "Copy"
  959.             ImageKey        =   "Copy"
  960.          EndProperty
  961.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  962.             Key             =   "Cut"
  963.             Object.ToolTipText     =   "Cut"
  964.             ImageKey        =   "Cut"
  965.          EndProperty
  966.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  967.             Key             =   "Paste"
  968.             Object.ToolTipText     =   "Paste"
  969.             ImageKey        =   "Paste"
  970.          EndProperty
  971.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  972.             Key             =   "Mix"
  973.             Object.ToolTipText     =   "Mix"
  974.             ImageKey        =   "Mix16"
  975.          EndProperty
  976.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  977.             Style           =   3
  978.          EndProperty
  979.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  980.             Key             =   "Undo"
  981.             Object.ToolTipText     =   "Undo"
  982.             ImageKey        =   "Undo"
  983.          EndProperty
  984.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  985.             Key             =   "Redo"
  986.             Object.ToolTipText     =   "Redo"
  987.             ImageKey        =   "Redo"
  988.          EndProperty
  989.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  990.             Style           =   3
  991.          EndProperty
  992.          BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  993.             Key             =   "Zoomin"
  994.             Object.ToolTipText     =   "Zoom In"
  995.             ImageKey        =   "Zoomin"
  996.          EndProperty
  997.          BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  998.             Key             =   "Zoomout"
  999.             Object.ToolTipText     =   "Zoom Out"
  1000.             ImageKey        =   "Zoomout"
  1001.          EndProperty
  1002.          BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1003.             Key             =   "ZoomFull1"
  1004.             Object.ToolTipText     =   "Zoom Full"
  1005.             ImageKey        =   "ZoomFull1"
  1006.          EndProperty
  1007.          BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1008.             Style           =   3
  1009.          EndProperty
  1010.          BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1011.             Key             =   "Play"
  1012.             Object.ToolTipText     =   "Play"
  1013.             ImageKey        =   "Key5_2_1"
  1014.          EndProperty
  1015.          BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1016.             Key             =   "PlayToEnd"
  1017.             Object.ToolTipText     =   "PlayToEnd"
  1018.             ImageKey        =   "PlayToEnd"
  1019.          EndProperty
  1020.          BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1021.             Key             =   "PlayLooped"
  1022.             Object.ToolTipText     =   "PlayLooped"
  1023.             ImageKey        =   "PlayLooped"
  1024.          EndProperty
  1025.          BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1026.             Key             =   "Record"
  1027.             Object.ToolTipText     =   "Record"
  1028.             ImageKey        =   "Key5_1_1"
  1029.          EndProperty
  1030.          BeginProperty Button24 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1031.             Key             =   "Pause"
  1032.             Object.ToolTipText     =   "Pause"
  1033.             ImageKey        =   "Pause1"
  1034.          EndProperty
  1035.          BeginProperty Button25 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1036.             Key             =   "Continue"
  1037.             Object.ToolTipText     =   "Continue"
  1038.             ImageKey        =   "Continue1"
  1039.          EndProperty
  1040.          BeginProperty Button26 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1041.             Key             =   "Stop"
  1042.             ImageKey        =   "Key5_3_1"
  1043.          EndProperty
  1044.          BeginProperty Button27 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1045.             Style           =   3
  1046.          EndProperty
  1047.          BeginProperty Button28 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1048.             Key             =   "Left"
  1049.             Object.ToolTipText     =   "Left Channel"
  1050.             ImageKey        =   "Left"
  1051.             Style           =   1
  1052.             Value           =   1
  1053.          EndProperty
  1054.          BeginProperty Button29 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1055.             Key             =   "Right"
  1056.             Object.ToolTipText     =   "Right Channel"
  1057.             ImageKey        =   "Right"
  1058.             Style           =   1
  1059.             Value           =   1
  1060.          EndProperty
  1061.          BeginProperty Button30 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1062.             Style           =   3
  1063.          EndProperty
  1064.          BeginProperty Button31 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1065.             Key             =   "AGC"
  1066.             Object.ToolTipText     =   "Auto Gain Control"
  1067.             ImageKey        =   "AGC2"
  1068.             Style           =   1
  1069.          EndProperty
  1070.       EndProperty
  1071.    End
  1072.    Begin VB.Menu mnuFile 
  1073.       Caption         =   "File"
  1074.       Begin VB.Menu mnuNew 
  1075.          Caption         =   "New"
  1076.       End
  1077.       Begin VB.Menu mnuOpen 
  1078.          Caption         =   "Open ..."
  1079.       End
  1080.       Begin VB.Menu mnu3 
  1081.          Caption         =   "-"
  1082.       End
  1083.       Begin VB.Menu mnuConvert 
  1084.          Caption         =   "Convert Sample Type ..."
  1085.       End
  1086.       Begin VB.Menu mnu2 
  1087.          Caption         =   "-"
  1088.       End
  1089.       Begin VB.Menu mnuSave 
  1090.          Caption         =   "Save as ..."
  1091.       End
  1092.       Begin VB.Menu mnuSaveSelect 
  1093.          Caption         =   "Save select as ..."
  1094.       End
  1095.       Begin VB.Menu mnu1 
  1096.          Caption         =   "-"
  1097.       End
  1098.       Begin VB.Menu mnuExit 
  1099.          Caption         =   "Exit"
  1100.       End
  1101.    End
  1102.    Begin VB.Menu mnuView 
  1103.       Caption         =   "View"
  1104.       Begin VB.Menu mnuViewWaveForm 
  1105.          Caption         =   "WaveForm View"
  1106.          Checked         =   -1  'True
  1107.       End
  1108.       Begin VB.Menu mnuViewSpectral 
  1109.          Caption         =   "Spectral View"
  1110.       End
  1111.       Begin VB.Menu mnu12 
  1112.          Caption         =   "-"
  1113.       End
  1114.       Begin VB.Menu mnuInfo 
  1115.          Caption         =   "Info List ..."
  1116.       End
  1117.       Begin VB.Menu mnuMarkers 
  1118.          Caption         =   "Marker List ..."
  1119.       End
  1120.    End
  1121.    Begin VB.Menu mnuEdit 
  1122.       Caption         =   "Edit"
  1123.       Begin VB.Menu mnuCopy 
  1124.          Caption         =   "Copy"
  1125.       End
  1126.       Begin VB.Menu mnuCut 
  1127.          Caption         =   "Cut"
  1128.       End
  1129.       Begin VB.Menu mnuPaste 
  1130.          Caption         =   "Paste"
  1131.       End
  1132.       Begin VB.Menu mnuPasteFile 
  1133.          Caption         =   "Paste from File ..."
  1134.       End
  1135.       Begin VB.Menu mnu11 
  1136.          Caption         =   "-"
  1137.       End
  1138.       Begin VB.Menu mnuCopyWinClipboard 
  1139.          Caption         =   "Copy to Windows Clipboard "
  1140.       End
  1141.       Begin VB.Menu mnuPasteWinClipboard 
  1142.          Caption         =   "Paste from Windows Clipboard"
  1143.       End
  1144.       Begin VB.Menu mnu4 
  1145.          Caption         =   "-"
  1146.       End
  1147.       Begin VB.Menu mnuMix 
  1148.          Caption         =   "Mix"
  1149.       End
  1150.       Begin VB.Menu mnuMixFile 
  1151.          Caption         =   "Mix from File ..."
  1152.       End
  1153.       Begin VB.Menu mnu7 
  1154.          Caption         =   "-"
  1155.       End
  1156.       Begin VB.Menu mnuInsSilence 
  1157.          Caption         =   "Insert Silence"
  1158.       End
  1159.       Begin VB.Menu mnuDelSilence 
  1160.          Caption         =   "DeleteSilence"
  1161.       End
  1162.    End
  1163.    Begin VB.Menu mnuOperation 
  1164.       Caption         =   "Operation"
  1165.       Begin VB.Menu mnuAmplify1 
  1166.          Caption         =   "Amplify +"
  1167.       End
  1168.       Begin VB.Menu mnuAmplify2 
  1169.          Caption         =   "Amplify -"
  1170.       End
  1171.       Begin VB.Menu mnuFade1 
  1172.          Caption         =   "Fade +"
  1173.       End
  1174.       Begin VB.Menu mnuFade2 
  1175.          Caption         =   "Fade -"
  1176.       End
  1177.       Begin VB.Menu mnuNormalize 
  1178.          Caption         =   "Normalize"
  1179.       End
  1180.       Begin VB.Menu mnu10 
  1181.          Caption         =   "-"
  1182.       End
  1183.       Begin VB.Menu mnuInvert 
  1184.          Caption         =   "Invert"
  1185.       End
  1186.       Begin VB.Menu mnuFlanger 
  1187.          Caption         =   "Flanger"
  1188.       End
  1189.       Begin VB.Menu mnuDelay 
  1190.          Caption         =   "Delay"
  1191.       End
  1192.       Begin VB.Menu mnuVibrato 
  1193.          Caption         =   "Vibrato"
  1194.       End
  1195.       Begin VB.Menu mnu9 
  1196.          Caption         =   "-"
  1197.       End
  1198.       Begin VB.Menu mnuStretch1 
  1199.          Caption         =   "Stretch +"
  1200.       End
  1201.       Begin VB.Menu mnuStretch2 
  1202.          Caption         =   "Stretch -"
  1203.       End
  1204.    End
  1205.    Begin VB.Menu mnuFilters 
  1206.       Caption         =   "Filters"
  1207.       Begin VB.Menu mnuBandPass 
  1208.          Caption         =   "Band Pass"
  1209.       End
  1210.       Begin VB.Menu mnuLowPass 
  1211.          Caption         =   "Low Pass"
  1212.       End
  1213.       Begin VB.Menu mnuHighPass 
  1214.          Caption         =   "High Pass"
  1215.       End
  1216.       Begin VB.Menu mnuLowShelf 
  1217.          Caption         =   "Low Shelf"
  1218.       End
  1219.       Begin VB.Menu mnuHighShelf 
  1220.          Caption         =   "High Shelf"
  1221.       End
  1222.    End
  1223. Attribute VB_Name = "frmDialog"
  1224. Attribute VB_GlobalNameSpace = False
  1225. Attribute VB_Creatable = False
  1226. Attribute VB_PredeclaredId = True
  1227. Attribute VB_Exposed = False
  1228. Private Sub Form_Load()
  1229.     Dim kDeviceInput, kDeviceOutput
  1230.     If AudioEditor1.DeviceInput.Count < 1 Then Exit Sub
  1231.     kDeviceInput = AudioEditor1.DeviceInput.Num - 1
  1232.     For i = 0 To AudioEditor1.DeviceInput.Count
  1233.         AudioEditor1.DeviceInput.Num = i
  1234.         If AudioEditor1.DeviceInput.DeviceLines.Count > 0 Then
  1235.             cmbDevInput.AddItem AudioEditor1.DeviceInput.Name
  1236.             cmbDevInput.ItemData(cmbDevInput.NewIndex) = i
  1237.         End If
  1238.     Next
  1239.     If kDeviceInput > cmbDevInput.NewIndex Then kDeviceInput = cmbDevInput.NewIndex
  1240.                                                                     
  1241.     AudioEditor1.DeviceInput.Num = kDeviceInput
  1242.     cmbDevInput.ListIndex = kDeviceInput
  1243.     If AudioEditor1.DeviceOutput.Count < 1 Then Exit Sub
  1244.     kDeviceOutput = AudioEditor1.DeviceOutput.Num - 1
  1245.     For i = 0 To AudioEditor1.DeviceOutput.Count
  1246.         AudioEditor1.DeviceOutput.Num = i
  1247.         If AudioEditor1.DeviceOutput.DeviceLines.Count > 0 Then
  1248.             cmbDevOutput.AddItem AudioEditor1.DeviceOutput.Name
  1249.             cmbDevOutput.ItemData(cmbDevOutput.NewIndex) = i
  1250.         End If
  1251.     Next
  1252.     If kDeviceOutput > cmbDevOutput.NewIndex Then kDeviceOutput = cmbDevOutput.NewIndex   'if the number of available output devices is more than the number of added devices then set the kDeviceOutput value to the number of added devices
  1253.                                                                       
  1254.     AudioEditor1.DeviceOutput.Num = kDeviceOutput
  1255.     cmbDevOutput.ListIndex = kDeviceOutput
  1256.     SetSrcInput
  1257.     SetSrcOutput
  1258.     SetParam
  1259.     udZV.Value = 100
  1260. End Sub
  1261. Private Sub AudioEditor1_GainChange(ByVal newVolume As Long)
  1262.     sldrVolumeInp.Value = 65535 - newVolume
  1263. End Sub
  1264. Private Sub AudioEditor1_MarkerClick(ByVal Num As Long)
  1265.     AudioEditor1.Markers.Num = Num
  1266.     AudioEditor1.Position.GoToMarker Num
  1267. End Sub
  1268. Private Sub AudioEditor1_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal X As Integer, ByVal Y As Integer)
  1269.     'MsgBox AudioEditor1.Position.CurrentPosition
  1270. End Sub
  1271. Private Sub AudioEditor1_NewMarker(ByVal Num As Long)
  1272.     MsgBox Num
  1273. End Sub
  1274. Private Sub AudioEditor1_ScaleXClick()
  1275.     MsgBox "Click Scale X"
  1276. End Sub
  1277. Private Sub AudioEditor1_ScaleYClick()
  1278.     MsgBox "Click Scale Y"
  1279. End Sub
  1280. Private Sub chSelect_Click()
  1281.     AudioEditor1.Position.Selected = chSelect.Value
  1282. End Sub
  1283. Private Sub chSelectInput_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1284.     AudioEditor1.DeviceInput.DeviceLines.Select = chSelectInput.Value
  1285.     chSelectInput.Value = Abs(AudioEditor1.DeviceInput.DeviceLines.Select)
  1286. End Sub
  1287. Private Sub mnuConvert_Click()
  1288.     frmConvert.Show 1, Me
  1289. End Sub
  1290. Private Sub mnuCopyWinClipboard_Click()
  1291.     AudioEditor1.CopyToClipboard
  1292. End Sub
  1293. Private Sub mnuInfo_Click()
  1294.     frmInfo.Show 1, Me
  1295. End Sub
  1296. Private Sub mnuMarkers_Click()
  1297.     frmMarkers.Show 0, Me
  1298. End Sub
  1299. Private Sub mnuPasteWinClipboard_Click()
  1300.     AudioEditor1.PasteFromClipboard
  1301. End Sub
  1302. Private Sub mnuViewSpectral_Click()
  1303.     AudioEditor1.TypeView = SPECTRAL
  1304.     mnuViewWaveForm.Checked = False
  1305.     mnuViewSpectral.Checked = True
  1306. End Sub
  1307. Private Sub mnuViewWaveForm_Click()
  1308.     AudioEditor1.TypeView = WAVEFORM
  1309.     mnuViewWaveForm.Checked = True
  1310.     mnuViewSpectral.Checked = False
  1311. End Sub
  1312. Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  1313.     On Error Resume Next
  1314.     Select Case Button.Key
  1315.         Case "AGC"
  1316.             If Button.Value = tbrPressed Then
  1317.                 AudioEditor1.Recorder.AGCEnabled = True
  1318.             Else
  1319.                 AudioEditor1.Recorder.AGCEnabled = False
  1320.             End If
  1321.         Case "Continue"
  1322.             AudioEditor1.Continue
  1323.         Case "Pause"
  1324.             AudioEditor1.Pause
  1325.         Case "Mix"
  1326.             AudioEditor1.Mix 100, -100
  1327.         Case "PlayLooped"
  1328.             AudioEditor1.Play PLAYLOOPED
  1329.         Case "PlayToEnd"
  1330.             AudioEditor1.Play PLAYTOEND
  1331.         Case "Left"
  1332.             ChangeChannel
  1333.         Case "Right"
  1334.             ChangeChannel
  1335.         Case "Properties"
  1336.             frmSetup.Show 1, Me
  1337.         Case "ZoomFull1"
  1338.             AudioEditor1.ZoomFull
  1339.         Case "Record"
  1340.             AudioEditor1.Record
  1341.         Case "Stop"
  1342.             AudioEditor1.Stop
  1343.         Case "Play"
  1344.             AudioEditor1.Play
  1345.         Case "Zoomout"
  1346.             AudioEditor1.ZoomOut
  1347.         Case "Zoomin"
  1348.             AudioEditor1.ZoomIn
  1349.         Case "New"
  1350.             NewFile
  1351.         Case "Open"
  1352.             OpenFile
  1353.         Case "Save"
  1354.             SaveFile
  1355.         Case "Close"
  1356.             AudioEditor1.Close
  1357.         Case "Copy"
  1358.             AudioEditor1.Copy
  1359.         Case "Cut"
  1360.             AudioEditor1.Cut
  1361.         Case "Paste"
  1362.             AudioEditor1.Paste
  1363.         Case "Undo"
  1364.             AudioEditor1.Undo
  1365.         Case "Redo"
  1366.             AudioEditor1.Redo
  1367.     End Select
  1368.     SetParam
  1369. End Sub
  1370. Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
  1371.     On Error Resume Next
  1372.     Select Case Button.Key
  1373.         Case "Delay"
  1374.             AudioEditor1.Transform.Delay 120, 30, 10
  1375.         Case "BPF"
  1376.             AudioEditor1.Transform.BandPassFilter AudioEditor1.FileInfo.Frequency / 100, 100
  1377.         Case "Vibrato"
  1378.             AudioEditor1.Transform.Vibrato 25, 3, 0
  1379.         Case "LSF"
  1380.             AudioEditor1.Transform.LowShelfFilter AudioEditor1.FileInfo.Frequency / 200, -10, 100
  1381.         Case "LPF"
  1382.             AudioEditor1.Transform.LowPassFilter AudioEditor1.FileInfo.Frequency / 50, 50
  1383.         Case "HSF"
  1384.             AudioEditor1.Transform.HighShelfFilter AudioEditor1.FileInfo.Frequency / 100, -10, 100
  1385.         Case "HPF"
  1386.             AudioEditor1.Transform.HighPassFilter AudioEditor1.FileInfo.Frequency / 100, 100
  1387.         Case "InsSilence"
  1388.             AudioEditor1.Transform.InsertSilence 343
  1389.         Case "NotchFilter"
  1390.             AudioEditor1.Transform.NotchFilter 50, 100
  1391.         Case "Flanger"
  1392.             AudioEditor1.Transform.Flanger 50, 30, 10, 50, 5, 0
  1393.         Case "Amplify-"
  1394.             AudioEditor1.Transform.Amplify 60
  1395.         Case "Amplify+"
  1396.             AudioEditor1.Transform.Amplify 140
  1397.         Case "FFT"
  1398.             FFTFilter
  1399.         Case "Silence"
  1400.             AudioEditor1.Transform.Silence
  1401.         Case "Invert"
  1402.             AudioEditor1.Transform.Invert
  1403.         Case "FadeOut"
  1404.             AudioEditor1.Transform.Fade 100, 0
  1405.         Case "FadeIn"
  1406.             AudioEditor1.Transform.Fade 0, 100
  1407.         Case "Normalize"
  1408.             AudioEditor1.Transform.Normalize 80, True
  1409.     End Select
  1410.     SetParam
  1411. End Sub
  1412. Private Sub mnuAmplify1_Click()
  1413.     AudioEditor1.Transform.Amplify 120
  1414. End Sub
  1415. Private Sub mnuAmplify2_Click()
  1416.     AudioEditor1.Transform.Amplify 80
  1417. End Sub
  1418. Private Sub mnuBandPass_Click()
  1419.     AudioEditor1.Transform.BandPassFilter AudioEditor1.FileInfo.Frequency / 200, 100
  1420. End Sub
  1421. Private Sub mnuCopy_Click()
  1422.     AudioEditor1.Copy
  1423. End Sub
  1424. Private Sub mnuCut_Click()
  1425.     AudioEditor1.Cut
  1426. End Sub
  1427. Private Sub mnuDelay_Click()
  1428.     AudioEditor1.Transform.Delay 120, 85, 10
  1429. End Sub
  1430. Private Sub mnuDelSilence_Click()
  1431.     AudioEditor1.Transform.DeleteSilence 40, 1, 10
  1432. End Sub
  1433. Private Sub mnuExit_Click()
  1434.     Unload Me
  1435. End Sub
  1436. Private Sub mnuFade1_Click()
  1437.     AudioEditor1.Transform.Fade 0, 100
  1438. End Sub
  1439. Private Sub mnuFade2_Click()
  1440.     AudioEditor1.Transform.Fade 100, 0
  1441. End Sub
  1442. Private Sub mnuFlanger_Click()
  1443.     AudioEditor1.Transform.Flanger 50, 30, 10, 50, 5, 0
  1444. End Sub
  1445. Private Sub mnuHighPass_Click()
  1446.     AudioEditor1.Transform.HighPassFilter AudioEditor1.FileInfo.Frequency / 50, 100
  1447. End Sub
  1448. Private Sub mnuHighShelf_Click()
  1449.     AudioEditor1.Transform.HighShelfFilter AudioEditor1.FileInfo.Frequency / 50, -10, 100
  1450. End Sub
  1451. Private Sub mnuInsSilence_Click()
  1452.     AudioEditor1.Transform.InsertSilence 500
  1453. End Sub
  1454. Private Sub mnuInvert_Click()
  1455.     AudioEditor1.Transform.Invert
  1456. End Sub
  1457. Private Sub mnuLowPass_Click()
  1458.     AudioEditor1.Transform.LowPassFilter AudioEditor1.FileInfo.Frequency / 100, 50
  1459. End Sub
  1460. Private Sub mnuLowShelf_Click()
  1461.     AudioEditor1.Transform.LowShelfFilter AudioEditor1.FileInfo.Frequency / 400, -10, 100
  1462. End Sub
  1463. Private Sub mnuMix_Click()
  1464.     AudioEditor1.Mix 50, 50
  1465. End Sub
  1466. Private Sub mnuMixFile_Click()
  1467.     Dim FileName As String
  1468.     With CommonDialog1
  1469.         .FileName = ""
  1470.         .InitDir = "c:\"
  1471.         .DialogTitle = Title
  1472.         .CancelError = False
  1473.         .DialogTitle = "Open ..."
  1474.         .Filter = "Wav Files (*.wav)|*.wav"
  1475.         .Filter = .Filter + "|MP3 Files (*.mp3)|*.mp3"
  1476.         .ShowOpen
  1477.          If Len(.FileName) = 0 Then Exit Sub
  1478.         FileName = .FileName
  1479.     End With
  1480.     AudioEditor1.MixFromFile 100, FileName, -100
  1481. End Sub
  1482. Private Sub mnuNew_Click()
  1483.     NewFile
  1484. End Sub
  1485. Private Sub mnuNormalize_Click()
  1486.     AudioEditor1.Normalize 100, True
  1487. End Sub
  1488. Private Sub mnuOpen_Click()
  1489.     OpenFile
  1490. End Sub
  1491. Private Sub mnuPaste_Click()
  1492.     AudioEditor1.Paste
  1493. End Sub
  1494. Private Sub mnuPasteFile_Click()
  1495.     Dim FileName As String
  1496.     FileName = ShowDialog(1)
  1497.     AudioEditor1.PasteFromFile FileName
  1498. End Sub
  1499. Private Sub mnuSave_Click()
  1500.     SaveFile
  1501. End Sub
  1502. Private Sub mnuSaveSelect_Click()
  1503.     Dim FileName As String
  1504.     AudioEditor1.SetFormatFromMenu
  1505.     FileName = ShowDialog(2)
  1506.     AudioEditor1.Save FileName, True
  1507. End Sub
  1508. Private Sub mnuStretch1_Click()
  1509.     AudioEditor1.Transform.TimeStretch 120
  1510. End Sub
  1511. Private Sub mnuStretch2_Click()
  1512.     AudioEditor1.Transform.TimeStretch 80
  1513. End Sub
  1514. Private Sub mnuVibrato_Click()
  1515.     AudioEditor1.Transform.Vibrato 25, 3, 0
  1516. End Sub
  1517. Private Sub chSelectOutput_Click()
  1518.     AudioEditor1.DeviceOutput.DeviceLines.Select = chSelectOutput.Value
  1519.     chSelectOutput.Value = Abs(AudioEditor1.DeviceOutput.DeviceLines.Select)
  1520. End Sub
  1521. Private Sub cmbDevInput_Click()
  1522.     AudioEditor1.DeviceInput.Num = cmbDevInput.ItemData(cmbDevInput.ListIndex)
  1523.     SetSrcInput
  1524. End Sub
  1525. Private Sub cmbSrcInput_Click()
  1526.     AudioEditor1.DeviceInput.DeviceLines.Num = cmbSrcInput.ListIndex
  1527.     sldrVolumeInp.Value = 65535 - AudioEditor1.DeviceInput.DeviceLines.Volume
  1528.     sldrVolBalanceInp.Value = AudioEditor1.DeviceInput.DeviceLines.VolumeBalance
  1529.     chSelectInput.Value = Abs(AudioEditor1.DeviceInput.DeviceLines.Select)
  1530.     If AudioEditor1.DeviceInput.DeviceLines.AdvancedCount >= 0 Then cmdAdvancedInput.Visible = True Else cmdAdvancedInput.Visible = False
  1531. End Sub
  1532. Private Sub cmbDevOutput_Click()
  1533.     AudioEditor1.DeviceOutput.Num = cmbDevOutput.ItemData(cmbDevOutput.ListIndex)
  1534.     SetSrcOutput
  1535. End Sub
  1536. Private Sub cmbSrcOutput_Click()
  1537.     AudioEditor1.DeviceOutput.DeviceLines.Num = cmbSrcOutput.ListIndex
  1538.     sldrVolumeOut.Value = 65535 - AudioEditor1.DeviceOutput.DeviceLines.Volume
  1539.     sldrVolBalanceOut.Value = AudioEditor1.DeviceOutput.DeviceLines.VolumeBalance
  1540.     chSelectOutput.Value = AudioEditor1.DeviceOutput.DeviceLines.Select
  1541.     If AudioEditor1.DeviceOutput.DeviceLines.AdvancedCount >= 0 Then cmdAdvancedOutput.Visible = True Else cmdAdvancedOutput.Visible = False
  1542. End Sub
  1543. Private Sub cmdAdvancedOutput_Click()
  1544.     frmAdvO.Show 1, Me
  1545. End Sub
  1546. Private Sub cmdAdvancedInput_Click()
  1547.     frmAdvI.Show 1, Me
  1548. End Sub
  1549. Private Sub sldrVolumeOut_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1550.     AudioEditor1.DeviceOutput.DeviceLines.Volume = 65535 - sldrVolumeOut.Value
  1551. End Sub
  1552. Private Sub sldrVolBalanceOut_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1553.     AudioEditor1.DeviceOutput.DeviceLines.VolumeBalance = sldrVolBalanceOut.Value
  1554. End Sub
  1555. Private Sub sldrVolumeInp_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1556.     AudioEditor1.DeviceInput.DeviceLines.Volume = 65535 - sldrVolumeInp.Value
  1557. End Sub
  1558. Private Sub sldrVolBalanceInp_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1559.     AudioEditor1.DeviceInput.DeviceLines.VolumeBalance = sldrVolBalanceInp.Value
  1560. End Sub
  1561. Private Sub AudioEditor1_BlockOperation(ByVal Procent As Integer)
  1562.     'StatusBar1.Panels(1) = Procent
  1563.     Progress(0).Value = Procent
  1564.     DoEvents
  1565. End Sub
  1566. Private Sub AudioEditor1_ChangePosition()
  1567.     SetPosition
  1568. End Sub
  1569. Private Sub AudioEditor1_EndOperation()
  1570.    ' MsgBox "End Operation"
  1571. End Sub
  1572. Private Sub AudioEditor1_Meter(ByVal LevelLeft As Long, ByVal LevelRight As Long)   'this sub starts on appearing the Meter event
  1573.     On Error Resume Next
  1574.     Progress(0).Value = LevelLeft
  1575.     Progress(1).Value = LevelRight
  1576. End Sub
  1577. Private Sub NewFile()
  1578.     AudioEditor1.New FQ_44_KHZ, STEREO
  1579. End Sub
  1580. Private Sub OpenFile()
  1581.     Dim FileName As String
  1582.     FileName = ShowDialog(1)
  1583.     AudioEditor1.Open FileName
  1584. End Sub
  1585. Private Sub SaveFile()
  1586.     Dim FileName As String
  1587.     FileName = ShowDialog(2)
  1588.     If FileName = "" Then Exit Sub
  1589.     Dim mp3lame As NCTAUDIOEDITOR2Lib.AudioEditor2LameEnc
  1590.     Set mp3lame = New AudioEditor2LameEnc
  1591.     mp3lame.Bitrate = BR_96_KBPS
  1592.     mp3lame.Frequency = FQ_32_KHZ
  1593.     mp3lame.VbrBitrate = BR_160_KBPS
  1594.     mp3lame.VbrCodingMethod = VBR_NEW
  1595.     AudioEditor1.FileFormat.SetFormatMP3Ex mp3lame
  1596.     AudioEditor1.Save FileName, False, Default
  1597.     Set mp3lame = Nothing
  1598. End Sub
  1599. Private Sub SetParam()
  1600.     StatusBar1.Panels(1).Text = CommonDialog1.FileName
  1601.     StatusBar1.Panels(2).Text = AudioEditor1.FileInfo.FormatString
  1602.     StatusBar1.Panels(3).Text = AudioEditor1.Position.TotalSamples
  1603.     Progress(0).Value = 0
  1604.     Progress(1).Value = 0
  1605.     SetPosition
  1606. End Sub
  1607. Private Sub SetPosition()
  1608.     StatusBar1.Panels(4).Text = AudioEditor1.Position.StartView
  1609.     StatusBar1.Panels(5).Text = AudioEditor1.Position.EndView
  1610.     StatusBar1.Panels(6).Text = AudioEditor1.Position.StartSelect
  1611.     StatusBar1.Panels(7).Text = AudioEditor1.Position.EndSelect
  1612.     If AudioEditor1.Position.Selected = False Then chSelect.Value = 0 Else chSelect.Value = 1
  1613.     If AudioEditor1.Position.TotalSamples <> 0 Then
  1614.         udZHstart.Value = AudioEditor1.Position.StartView * 100 / AudioEditor1.Position.TotalSamples
  1615.         udZHend.Value = AudioEditor1.Position.EndView * 100 / AudioEditor1.Position.TotalSamples
  1616.         
  1617.         udSelStart.Value = AudioEditor1.Position.StartSelect * 100 / AudioEditor1.Position.TotalSamples
  1618.         udSelEnd.Value = AudioEditor1.Position.EndSelect * 100 / AudioEditor1.Position.TotalSamples
  1619.     Else
  1620.         udZHstart.Value = 0
  1621.         udZHend.Value = 0
  1622.         udSelStart.Value = 0
  1623.         udSelEnd.Value = 0
  1624.     End If
  1625. End Sub
  1626. Private Function ShowDialog(ByVal TypeF As Integer)
  1627.     ShowDialog = ""
  1628.     With CommonDialog1
  1629.         .FileName = ""
  1630.         .DialogTitle = Title
  1631.         .CancelError = False
  1632.         If TypeF = 1 Then
  1633.             .DialogTitle = "Open ..."
  1634.             .Filter = "Wav Files (*.wav)|*.wav"
  1635.             .Filter = .Filter + "|MPEG Files (*.mp3;*.mp2;*.mpeg)|*.mp3;*.mp2;*.mpeg"
  1636.             .Filter = .Filter + "|OggVorbis Files (*.ogg)|*.ogg"
  1637.             .Filter = .Filter + "|AVI Files (*.avi)|*.avi"
  1638.             .Filter = .Filter + "|G.72x Files (*.g721;*.g723;*.g726)|*.*.g721;*.g723;*.g726"
  1639.             .Filter = .Filter + "|VOX Files (*.vox)|*.vox"
  1640.             .Filter = .Filter + "|RAW Files (*.raw; *.pcm)|*.raw;*.pcm"
  1641.             .Filter = .Filter + "|WMA Files (*.wma)|*.wma"
  1642.             .Filter = .Filter + "|CD Audio (*.cda)|*.cda"
  1643.             .ShowOpen
  1644.         ElseIf TypeF = 2 Then
  1645.             .DialogTitle = "Save as ..."
  1646.             .Filter = "Wav Files (*.wav)|*.wav"
  1647.             .Filter = .Filter + "|MP3 Files (*.mp3)|*.mp3"
  1648.             .Filter = .Filter + "|MP2 Files (*.mp2)|*.mp2"
  1649.             .Filter = .Filter + "|OggVorbis Files (*.ogg)|*.ogg"
  1650.             .Filter = .Filter + "|G.72x Files (*.g721;*.g723;*.g726)|*.*.g721;*.g723;*.g726"
  1651.             .Filter = .Filter + "|VOX Files (*.vox)|*.vox"
  1652.             .Filter = .Filter + "|RAW Files (*.raw; *.pcm)|*.raw;*.pcm"
  1653.             .Filter = .Filter + "|WMA Files (*.wma)|*.wma"
  1654.             .ShowSave
  1655.         End If
  1656.         If Len(.FileName) = 0 Then Exit Function
  1657.         
  1658.         If .FilterIndex = 6 Then frmVOX.Show 1, Me
  1659.         If .FilterIndex = 7 Then frmRAW.Show 1, Me
  1660.         If TypeF = 2 And .FilterIndex = 1 Then
  1661.             AudioEditor1.FileFormat.SetFormatFromMenu
  1662.         End If
  1663.         ShowDialog = .FileName
  1664.     End With
  1665.     fName = ShowDialog
  1666. End Function
  1667. Private Sub ChangeChannel()
  1668.     If (Toolbar1.Buttons(28).Value = tbrPressed And Toolbar1.Buttons(29).Value = tbrPressed) Then   'if both channels buttons are pressed then
  1669.         AudioEditor1.Channels.Num = 1
  1670.         AudioEditor1.Channels.Visible = True
  1671.         AudioEditor1.Channels.Num = 2
  1672.         AudioEditor1.Channels.Visible = True
  1673.     ElseIf (Toolbar1.Buttons(28).Value = tbrPressed And Toolbar1.Buttons(29).Value = tbrUnpressed) Then 'if only the left channel is enabled then
  1674.         AudioEditor1.Channels.Num = 1
  1675.         AudioEditor1.Channels.Visible = True
  1676.         AudioEditor1.Channels.Num = 2
  1677.         AudioEditor1.Channels.Visible = False
  1678.     ElseIf (Toolbar1.Buttons(28).Value = tbrUnpressed And Toolbar1.Buttons(29).Value = tbrPressed) Then
  1679.         AudioEditor1.Channels.Num = 1
  1680.         AudioEditor1.Channels.Visible = False
  1681.         AudioEditor1.Channels.Num = 2
  1682.         AudioEditor1.Channels.Visible = True
  1683.     ElseIf (Toolbar1.Buttons(28).Value = tbrUnpressed And Toolbar1.Buttons(29).Value = tbrUnpressed) Then
  1684.         AudioEditor1.Channels.Num = 1
  1685.         AudioEditor1.Channels.Visible = False
  1686.         AudioEditor1.Channels.Num = 2
  1687.         AudioEditor1.Channels.Visible = False
  1688.     End If
  1689. End Sub
  1690. Private Sub FFTFilter()
  1691.     Dim FFT(511) As Single
  1692.     Dim kBass As Single
  1693.     Dim kTreble As Single
  1694.     kBass = -0.5
  1695.     kTreble = 0.5
  1696.     For i = 0 To 511: FFT(i) = 1: Next i
  1697.     For i = 0 To 100: FFT(i) = FFT(i) + (1 - i / 100) * kBass: Next i
  1698.     For i = 100 To 511: FFT(i) = FFT(i) + ((i - 100) / 411) * kTreble: Next i
  1699.     AudioEditor1.Transform.FFTFilter FFT()
  1700. End Sub
  1701. Private Sub SetSrcOutput()
  1702.     cmbSrcOutput.Clear
  1703.     If AudioEditor1.DeviceOutput.DeviceLines.Count < 0 Then Exit Sub
  1704.     kSrcOutput = AudioEditor1.DeviceOutput.DeviceLines.Num
  1705.     For i = 0 To AudioEditor1.DeviceOutput.DeviceLines.Count
  1706.         AudioEditor1.DeviceOutput.DeviceLines.Num = i
  1707.         cmbSrcOutput.AddItem AudioEditor1.DeviceOutput.DeviceLines.Name
  1708.     Next
  1709.     AudioEditor1.DeviceOutput.DeviceLines.Num = kSrcInput
  1710.     cmbSrcOutput.ListIndex = kSrcInput
  1711. End Sub
  1712. Private Sub SetSrcInput()
  1713.     cmbSrcInput.Clear
  1714.     If AudioEditor1.DeviceInput.DeviceLines.Count < 0 Then Exit Sub
  1715.     kSrcInput = AudioEditor1.DeviceInput.DeviceLines.Num
  1716.     For i = 0 To AudioEditor1.DeviceInput.DeviceLines.Count
  1717.         AudioEditor1.DeviceInput.DeviceLines.Num = i
  1718.         cmbSrcInput.AddItem AudioEditor1.DeviceInput.DeviceLines.Name
  1719.         If AudioEditor1.DeviceInput.DeviceLines.Select Then kSrcInput = i
  1720.     Next
  1721.     AudioEditor1.DeviceInput.DeviceLines.Num = kSrcInput
  1722.     cmbSrcInput.ListIndex = kSrcInput
  1723. End Sub
  1724. Private Sub udSelEnd_DownClick()
  1725.     AudioEditor1.Position.EndSelect = udSelEnd.Value * AudioEditor1.Position.TotalSamples / 100
  1726. End Sub
  1727. Private Sub udSelEnd_UpClick()
  1728.     AudioEditor1.Position.EndSelect = udSelEnd.Value * AudioEditor1.Position.TotalSamples / 100
  1729. End Sub
  1730. Private Sub udSelStart_DownClick()
  1731.     AudioEditor1.Position.StartSelect = udSelStart.Value * AudioEditor1.Position.TotalSamples / 100
  1732. End Sub
  1733. Private Sub udSelStart_UpClick()
  1734.     AudioEditor1.Position.StartSelect = udSelStart.Value * AudioEditor1.Position.TotalSamples / 100
  1735. End Sub
  1736. Private Sub udZHend_DownClick()
  1737.     AudioEditor1.Position.EndView = udZHend.Value * AudioEditor1.Position.TotalSamples / 100
  1738. End Sub
  1739. Private Sub udZHend_UpClick()
  1740.     AudioEditor1.Position.EndView = udZHend.Value * AudioEditor1.Position.TotalSamples / 100
  1741. End Sub
  1742. Private Sub udZHstart_DownClick()
  1743.     AudioEditor1.Position.StartView = udZHstart.Value * AudioEditor1.Position.TotalSamples / 100
  1744. End Sub
  1745. Private Sub udZHstart_UpClick()
  1746.     AudioEditor1.Position.StartView = udZHstart.Value * AudioEditor1.Position.TotalSamples / 100
  1747. End Sub
  1748. Private Sub udZV_Change()
  1749.     AudioEditor1.ZoomVertical udZV.Value
  1750. End Sub
  1751.